﻿Module Module1


    Sub Main()

        Dim insObj As EpubCreator = New EpubCreator("mon premier roman")
        insObj.CreateStyleSheet()

        insObj.OpenParagraph()

        insObj.writeBlankLine()
        insObj.writeTab()
        insObj.writeTexte("Hier mal")
        insObj.writeSpace()
        insObj.writeTexte("ein")
        insObj.writeSpace()
        insObj.writeTexte("Versuch")
        insObj.writeSpace()
        insObj.writeTexte("unsere")
        insObj.writeSpace()
        insObj.writeTexte("Team")
        insObj.writeSpace()
        insObj.writeTexte("Projekt")
        insObj.writeSpace()
        insObj.writeTexte(".")
        insObj.writeBlankLine()

        insObj.CloseParagraph()

        insObj.OpenParagraph()

        insObj.writeTexte("Arbeit")
        insObj.writeSpace()
        insObj.writeTexte("viel")
        insObj.writeSpace()
        insObj.writeTexte("Spaß")
        insObj.writeSpace()
        insObj.writeTexte("dabei")
        insObj.writeSpace()
        insObj.writeTexte("!")
        insObj.writeBlankLine()
        insObj.writeBlankLine()
        insObj.writeTab()
        insObj.writeTab()
        insObj.writeTexte("das Team")

        insObj.getImage("C:\Users\mkane\Desktop\foto\dalaylama.png")
        insObj.getImage("C:\Users\mkane\Desktop\foto\madLouise.jpeg")

        insObj.CloseParagraph()

        insObj.finishBook()

        insObj.ZipEpub()
    End Sub

End Module
